checkline

# Include # Include # Include # Include Typedef struct{Int X; // The X coordinate of the array.Int y; // The ordinate of the input array.} Elemtype; Static elemtype list [81]; // defines a tablespace.Int Len =-1; // Len record table size Void addlistelem (elemtype );Int getlistelem (elemtype *, INT );Void showme (INT [] [9]);Int addcount (INT [] [9]);Int checkline (INT [] [9], Int, INT );Int checkrow (INT [] [9], Int, INT );Int checkpalace (INT [] [9

b, analysis of the chessboard data structure 1.2.4, read the current board data--------------------------17 A, programming to read the board data b, Board data show 1.3, using simulation technology to compile external-------------------------------18 1.3.1 Analysis of Chess and board coordinate relations A, mouse software simulation, function SendMessage b, Analysis window pieces relative coordinates x,y c, software simulation Click the chessboard coordinates x,y at the pawn 1.3.2 Elimination o

,objlistfile ListFile = "" To set the profile path, if the configuration file and script are put together, leave it as is If listfile = "" Then listfile = "Listfile.ini" Set Fso = CreateObject ("Scripting.FileSystemObject") On Error Resume Next Set objlistfile = Fso.opentextfile (listfile,1) If ERR Then Err. Clear Msgbox "No configuration file found" listfile,16, "error" Wscript.Quit End If On Error GoTo 0 Dim Flnum,fdnum,t1,t2,tm Flnum=0 Fdnum=0 T1 = timer () Dim Myline,linearr,listarr Do Wh

Bool Check2p (POINT a, POINT B) // The p1, p2 {CChessPoint p1 (a), p2 (B) of the two target pawns are transmitted here ); // two class objects are declared here. The specific class contains the upper and lower POINT pa and pa of p1 and p2; // Two Corner Points if (. x = B. x) (. y = B. y) // a is the p1 pawn, B is the p2 pawn {return false;} else if (chessdata [. y] [. x] = 0) | (chessdata [B. y] [B. x) = 0) // if the p1 pawns are empty {return false;} // false else if (chessdata [. y] [. x]! =

= "listfile. ini"Set FSO = Createobject ("scripting. FileSystemObject ")On Error resume nextSet objlistfile = FSO. opentextfile (listfile, 1)If err thenErr. ClearMsgbox "configuration file not found" listfile, 16, "error"Wscript. QuitEnd ifOn Error goto 0 Dim flnum, fdnum, T1, T2, TMFlnum = 0Fdnum = 0T1 = timer () Dim myline, linearr, listarrDo While objlistfile. atendofstream Myline = lcase (replace (objlistfile. Readline, "=", "= "))If left (myline, 1) = "/" then'Objlistfile. skiplineElse

("Scripting.FileSystemObject") On Error Resume Next Set objlistfile = Fso.opentextfile (listfile,1) If ERR Then Err. Clear Msgbox "No configuration file found" listfile,16, "error" Wscript.Quit End If On Error GoTo 0 Dim Flnum,fdnum,t1,t2,tm Flnum=0 Fdnum=0 T1 = timer () Dim Myline,linearr,listarr Do While Objlistfile.atendofstream Myline = LCase (Replace (objlistfile.readline, "=", "=")) If Left (myline,1) = "/" Then ' Objlistfile.skipline ElseIf checkli